  METHOD /scwm/if_ex_sr_stadet~stadet_out.

    DATA: lv_ablad TYPE ablad,
          lv_lgpla TYPE /scwm/lgpla,
          ls_lagp  TYPE /scwm/lagp.

    LOOP AT ct_stage_area_data ASSIGNING FIELD-SYMBOL(<lfs_stage_area_data>)
      WHERE docid IS NOT INITIAL.
      IMPORT ablad TO lv_ablad FROM MEMORY ID 'ABLAD'.

      IF lv_ablad IS NOT INITIAL.
        MOVE lv_ablad TO lv_lgpla.
        <lfs_stage_area_data>-success = abap_true.
        CALL FUNCTION '/SCWM/LAGP_READ_SINGLE'
          EXPORTING
            iv_lgnum      = <lfs_stage_area_data>-lgnum
            iv_lgpla      = lv_lgpla
          IMPORTING
            es_lagp       = ls_lagp
          EXCEPTIONS
            wrong_input   = 1
            not_found     = 2
            enqueue_error = 3
            OTHERS        = 4.

        IF sy-subrc = 0.
          <lfs_stage_area_data>-starea_gr = ls_lagp-lgtyp.
          <lfs_stage_area_data>-stabay = ls_lagp-lgpla.
        ELSE.
          "keine Lageraufgabenerstellung erlauben -> Beleg wird rot
          CLEAR <lfs_stage_area_data>-starea_gr.
          <lfs_stage_area_data>-stabay = ls_lagp-lgpla.
        ENDIF.

      ENDIF.
    ENDLOOP.

 ENDMETHOD.

Listing 4.2: Methode „/scwm/if_ex_sr_stadet~stadet_out“
